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14-Sep-1984 12:53:2 PHONE ..SRCJMISCCMDS.B32;1 


0001 Ztitle "MISCCMDS = Misceilaneous Phone Commands’ 

44 module misccmds ( 

000 ident='V04-000') = begin 

0004 1 

0005 1! 

44 : acai iaiaiecimiaceaaeaceaeaaent t ih taianinciieniat iter imicnnee 
‘* 

0008 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY é 

0009 1 i* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. + 

pie } i ALL RIGHTS RESERVED. * 
. te 

Bet¢ 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 

0015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 

0014 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 

0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

0016 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

pote : ” TRANSFERRED. * 
if ® 

0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

eos) : > CORPORATION, * 
i® ® 

$098 1 != DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

0024 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

0025 1 !* * 

0026 1 !* * 

0027 1 eee R AREER RAE AEE REE AAA TEAR EE EEE EAA AE TEETER eee eeeeeteeee 

0028 1! 

0029 1 

0030 1 !++ 

Oo, : Facility: VAX/VMS Telephone Facility, Miscellaneous Phone Commands 

0085 1! Abstract: This module handles the following user commands: 

0034 1! EXIT Exit the facility. 

0035 1! HELP Provide help information. 

0036 1! DIRECTORY Provide a list of people to call. 

0037 1! MAIL Send phone messege to someone. 

0038 1! 

0039 1! 

se : Environment: 

004 Author: Paul C. Anagnostopoulos, Creation Date: 20 November 1980 

044 Modified By: 

0046 1! v03-007 ROPO034 Robert Posniak 08-Aug-1984 

0047 1! Pass a null input file to MAIL when sending 

B08 : a phone message to someone. 

0050 1! v03-006 BLS0335 Benn Schreiber 27-JUL-1984 

Bees : Include SYSNAM in privs dropped. 

0088 ft v03-005 BLS0241_ Benn Schreiber 8-Dec-1983 

Boee : Drop privs before spawning MAIL. 

0056 1! v03-004 MHB0085 Mark Bramhall 5 17-Jan-1983 

0057 1! PHNSESTAB_LINK now always displays its status via 
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MISCCMDS MISCCMDS = Miscellaneous Phone Commands 14-58 -1984 02:13: AX-11 Bliss-32 V4.0-742 
yon s500 12-908-1 382 95:33:38 PHONE. SRCIMISCCMDS B32 1 
: : o038 PHNSINFORM; its callers just check the returned status. 
60 $080 v03-003 BLS0169 Benn Schreiber 12-Apr-1982 
o} seg Fix error handling from Lib$spawn call 
V03-002 PCA0043 Paul Anagnostopoulos 26-Mar-1982 
0064 Remove DIRECTORY feature that shows if user is running 


PHONE. This required inswap of every process. 


v03-001 PCA0042 Paul Anagnostopoulos 26-Mar-1982 
Use LIBSSPAWN to fire up MAIL subprocess. 
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erecem® MISCCMDS = Miscellaneous Phone Commands 1e=s00= 138% Og 18:8 AX-11 Ol igs 22 V4.0-742 Page 
v04- Module Declarations 14-Sep-1984 12:53:2 PHONE ..SRCJMISCCMDS.B32;1 
3 f $70 ! Asbttl "Module Declarations’ 

8 Bn 76 1 ! Libraries and Requires: 
; «76 0735 1! 
; © 0074 1 
; 76 075 1 Library  Sys$library:starlet. | 32°; 
: 77 o78 1 library ‘sys$library:tpamac.(32'; 
a 077 1 require ‘phonereq'; 
; 0406 1 
; 80 0407 1! 
3; «8 0408 1 ! Table of Contents: 
; 8 Rete 1! 
; & 410 1 
ee -1) 0411 1 forward routine 
; «685 peg 1 phn$exit_cmd: novalue, 
; 86 0413 1 phn$exit_handler: novalue, 
;.6| COST 0414 1 phn$help_cmd: novalue, 
; «688 0415 1 phn$help2: novalue, 
; 689 0416 1 phn$directory_cmd: novalue, 
; 90 0417 1 phn$directory2: novalue, 
a 2 0418 1 phn$directory_Lline 
: 9 0419 1 phn$mail_cmd: novalue; 
; F bese 1 
; 0421 1! 
; 0422 1 ! External References: 
; 96 04235 1! 
; ow 0424 1 
; 0425 1 external routine 
; WW 0426 1 Lor$close: addressing _mode(general), 
; 100 0427 1 ter zeet melee addressing_mode(general), 
: 101 0428 1 Lbr$ini_control: addressing_mode(general), 
: 102 0429 1 Lbr$open: address ing_mode (general 
: 103 0430 1 Lib$spawn: addressing_mode general 
: 104 0431 1 Lib$tparse: addressing_mode general), 
; 105 0432 1 phn$break_Link, ane 
: 106 0433 1 phn$term_characteristic, 
3; 107 0434 1 phn$estab_Link, 
; 108 0435 1 phn$inform, 
: 109 0436 1 phn$kill_ctl, 
: 110 0437 1 phn$make_ctl, 
s 191 0438 #1 phn$make_tsb, 
s We 0439 1 phn$prepare_users_target, 
: 1135 0440 1 phn$queue_smb, 
114 0441 1 phn$read_slave, 
» 115 0442 1 phn$scroTll_Line, 
3; «116 0443 1 a spt he lie 
, Wi 0444 1 phn$send_smb, J 
; 118 0445 1 scr$erase_page: addressing_mode(general); 
3 119 0446 1 
3; tao 0447 1 external Literal 
3 Yer 0448 1 ib$_syntaxerr; 
: 122 0449 1 
: 125 0450 1! 
: 126 0451 1 ! Own Variables: 
s 2 BS 26 1! : 
: 126 04535 1 ! The following is the head of the help save queve. It is used by 
3: 127 0454 1 ! PHNSHELP_CMD and PHNSHELP2. 
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besep=t 
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yestorte. long 
initial(rep 2 of (help_save_head)); 
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MISCCMDS MISCCMDS = Miscellaneous Phone Commands 1$- Sep-1984 213: AX-11 1. s-32 V4.0-742 Page 5 
Yoes500 PHNSEXIT_CMD = Handle EXIT Command 14- ~300n 138% 04 38 PHONE .SRCJMISCCMDS.B832;1 ° (3) 
“yee 460 1 %sbttl "PHNSEXIT_CMD - Handle EXIT Command' 
s 155 461 1 !e4 
c- % § 106 1} Functional Description: 
5 463 1! This routine handles the EXIT command, which is used to exit 
s; 138 0464 1! the facility. 
; 139 0465 1! 
: 140 R768 1 ! Formal Parameters: 
3; «141 0467 1! none 
; re 0468 1! 
: 14 0469 1°! Implicit Inputs: 
> 144 0470 1! global data 
3 6145 0471 1! 
: 146 Be e§ 1! Implicit Outputs: 
3; «147 0475 1! global data 
: 148 0474 1! 
3: 1469 0475 1 ! Returned Value: 
; 150 0476 1! 
Bae 0477 1! 
; 152 0478 1! Side Effects: 
; #155 0479 1! 
: «4154 0480 1 !-- 
s 155 0481 1 
; 156 0482 1 
3 ir 0483 2 global routine phn$exit_cmd: novalue = begin 
: 158 0484 2 
3 «159 0485 2 
; 160 0486 2 Sexit(code=ss$_normal); 
: 161 0487 2 
3; 162 0488 1 end; 


-TITLE MISCCMDS MISCCMDS - Miscellaneous Phone Command 

LIDENT \V04-000\° 

-PSECT SOWNS,NOEXE,2 
00000000" 00000 HELP_SAVE_HEAD: 


ADDRESS HELP_SAVE_HEAD , | 
00000000" 00004 “ADDRESS HELPZSAVE—HEAD : | 


-EXTRN NS“DEA PHNS LINK 
SEXTRN “DIR An. PHN$_FACSCAN 
" N PHS “HELPCAN, PHNS_HUN 


-EXTRN PHNS_REJECT D  PHNS- 


INGMAIL 
TEXTRN PHNS~BADCMD, PHNS _BADHELP 
*EXTRN PHNS “BADMAILCMD 
“EXTRN PHNS$~BADSMB PHNS _BADSPEC 
“EXTRN PHNS™ “HELPHI 1Ss1 
N PHNSIVRED 
N PHNS IVREDUNCACL 


MISCCMDS M 
V0e-600 P 


=a 
i fh 


tds 
“5 0 AX-11 Bliss-32 v4.0-742 p 
“13RE 98:19:36 FAMGMY Shige 3 ue 05752, age 38 


.EXTRN PHNS_LINKERROR, PHN$_NEEDUSER 
“EXTRN PHNS“NOCALL, PHN$_NOROLDS 
-EXTRN PHNS-NOPORTS, PHNS NOPRIV 
“EXTRN PHNS$"NOPROC, PHN$ NOTCONV 
[EXTRN PHNS"ONLYNODE, PHNS oPHONEBUSY 


TEE 

-EXTRN PHNS-TARGTERM, PHNS_UNPLUGGED 
-EXTRN PHNS_BADTERM, PHN$_ SHAREDMBX 
SEXTRN PHNS INPUTTERM, PuRSGO NODE _NAME 


_SW pick Hoo 
eEXTRN PHNSGL = “VIEWPORT _SIZE 
eEXTRN PHNSGB SCROLL, PHNSGQ  PUBHEAD 


-EXTRN LBRSGET_HELP LBRSINI _ CONTROL 
P SSPAWN 


E 
“EXTRN LIBS$TPARSE, PHNSBREAK_LINK | 
“EXTRN PHNSTERM CHARACTERISTIC | 


Page: Phone Commands 


_cM - Handle EXIT Command 


.EXTRN PHNSESTAB_LINK Arta on 

SEXTRN PHNSKILL_CTL, PHNSMAKE_CTL 

»EXTRN PHSAAKE TSB, PUNSPREPRRES USERS. TARGET 
~EXTRN PHNSQUEUE_S SMB. PH HNSREAD_SCAV 


-EXTRN PHNS$SCROLL PREP 

~EXTRN PHNSSEND SAB. SCRSERASE_PAGE 
-EXTRN LIBS_SYNTAXERR, SYSSEXIT 
-PSECT S$CODE$,NOWRT,2 


0009 99009 .ENTRY PHNSEXIT_CMD, Save nothing : 0483 | 


0 00002 PUSHL #1 + 0486 
000000006 00 01 FB 00004 CALLS #1, SYSSEXIT : 
04 00008 RET > 0488 


; Routine Size: 12 bytes, Routine Base: $CODE$ + 0000 
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Mi n ee 96: 13:3 AX-11 Bliss- 
ANDLER = Exit the Facility 14-Sep-1984 12:53:2 PHONE. SRC IMI 
bttl "PHNSEXIT_HANDLER = Exit the Facility’ 


Functional Description: 
This routine is the exit handler established by the initialization 
routine. It is called whenever the user exits, be it by the EXIT 
command, CTRL/C, or CTRL/Y. We have to hang up the phone, so 
everyone we're talking to knows what's happening. 


MISCCMDS 
V0e=600 
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—o 
“mM 
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vy zt 


Formal Parameters: 
non 

Implicit Inputs: 
global data 


Implicit Outputs: 
global data 


Returned Value: 
none 


Side Effects: 


global routine phn$exit_handler: novalue = begin 
local 
p: ref pub, p2: ref pub; 
! We begin by scanning the entire PUB chain (except our own) and hanging 
! up on everyone. 


| 
= ,.phn$gq_pubhead(0); 
Entil -p gala. phnsoqpubhead do ( 
pe = * = 
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POPONINIMOMONINONINPININYDS 2 St 9 I tt 
= POININIPIPIPINI NN WININI IRI PIPINIPINIAINPIPIR) 2 tt at tt 0 2 ot 2 8 
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= .pCpu Link]; 
phn$break_lLink(.p,smb__hungup) ; 
- p = .p2; 
06 : 
44 ! Finally, we clear the screen so the user can start fresh in DCL. 
09 scr$erase_page(1,1); 
9 return; 
12 end; 


000¢ 00000 .ENTRY PHNSEXIT HANDLER, Save R2.R3 : 0514 | 
52 00006 DF DO 90002 MOVL | @PHN$GQ PUBHEAD, P : 0525, 
50 0000G CF 9E 00007 18: MOVAB PHN$GQ_PUBHEAD, RO > 0524 | 


Pe Se Se Se Se Se Se ee Se Be SHE Se Se Se Se Se Se Se ee SH Se Se THES Se Se eee SH Se Se Ge Se Seas 


MISCCMDS = Miscellaneous Phone fommands 16-50 =$007 135? 9: 13: 38 AX=-11 BL bigs s-32 V4.0-742 
PHNSEXIT_HANDLER = Exit the Facility 14-Sep-1 PHONE. SRC mISCCM Ds. B32;1 
50 52 D1 0000C CMPL P, RO 
een Reet, 
Bo Goo, USL 
00006 cr 03 FB 0018 CALLS 2. PHNSBREAK_L INK 
—E5 11 00020 BRB 
01 DD Bp OSE 2$: PUSHL #1 
01 DD 00024 PUSHL #1 
000000006 00 02 FB gRs6 CALLS #2, SCRSERASE_PAGE 
04 0002D RET 


; Routine Size: 46 bytes, Routine Base: S$CODE$ + 000C 
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Rsbttl *PHNSHELP_CMD = Handle HELP Command’ 


Page 4 


zo 


Functional Description: : 
This routine handles the HELP command. We get all the information 
Lines from the help toreey and store them in memory. Then we 
queue a steering message that will make us display the first 
bine Each Line displayed then queues a message for the next 
ine. 


Formal Parameters: : 

parameters Address of descriptor of the rest of the help 
command as entered by the user. 
global data 


Implicit Outputs: 
global data | 
' Returned Value: 


' 
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; Implicit Inputs: 
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; Side Effects: 
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$ global routine phn$help_cmd(parameters): novalue = begin 
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241 

242 ; 

243 bind : 
sie parameters_dsc = .parameters: descriptor; 
246 own : ‘ 

247 a 24 agp descriptor, 

248 subtopic_dsc: descriptor, 

249 tparse_block: block ¥pase..LengthO.byte) 
250 initial (tpa$k_countO, 
251 tpa$m_abbrev); 
252 

255 own . ; 

254 Library_index: long. 

255 Library_nam: $nam(); 

256 

257 Local 

258 status: long; 


ee Oe ee Oe Be Oe Re Oe Be Se Oe Oe Be BEBE Se SESE Se Se Se Se Se SH Se Se Se SH Se ae SESE SE Se Se Se Se Se SH Se Se Se Se Se Se ae Se Se SH Sess esse esse 


| 


co 


MISCCMDS = Miscellaneous Phone Commands 


PHNSHELP_CMD = Handle HELP Command 


MISCCMDS 
VOL=000 


. 
OS oe Oe 8S ee FS OS Se FES OR ES HS OE HS FS FS ESS ES TS FESS HS SS PS HS SSCS SES FS SHE *S SS *S SSCS CS *S FS SS *S*S “SHS SSCS LS *S* SECS *a ts 


. 
Ww 
. 
Co) 
we 
a 
= 
@ 
. 
© 
Qa 
qe 
~~ 
ow 
= es 
Ee 
ew 
<=o 
aan 
oe ~ 
we Vv 
cw wn 
ow ao) 
ae ‘ 
A] t=) 
oc = 
~~ @ a 
a o 
wo ca 
ea ve] 
ny 3 ~ 
3©@ ~ uw ae 
£ su es - 
aw “wn ~~ * = 
~~? ~oO ~ s a 
2s “- 1 —~ ‘ 
o> “. xe <r SD 
~ ~ ar @ x oe 
wo ~ ‘ia wm a =~ 
ow a AO wv” 1 - - 
coe x= Ow OA ~ ~ be - 
-oO 4 ae aes «© = © = 
“oc a ~ ~-~a ao) °o vo a 
co — ss co 2 2 2 L] 
ov “ - ied € e€ = A 
av £ on on o ~ o © 
ba ev ev = “ —_ a 
oq a te te = 2 . * - 6 ood 
<c- + fa “fra “A “A “A ~ . 
~~ 6 oo eo - @ - @& - @ - - 
cod aw aw ~ & * a -aQa ° * 
ne w ww ~~ - - -_ - a 
“*- O g ~~ —~ ad ad ~~ ~~ ~ 
a 
Ow — % 
c—~ @® Vv 
“- © = - 
Zz ~ a 
ow wo ° 
~a . oo 8 _ .. .. *e 8 es . 
—® oe ~ “~ -~ ~ “~~ “~~ “~~ “~~ ~ 
ov 
-v 4) 
so ' @ a a a a a a 
cu 7 ae ad ~ 7 ~ we ry 
=o -- oe © o @o bo] b) o 
-3s Cc wv we ww ro et w 
= n" " ” wn" yw " “ 
---- —§ A A rea) cond red A A 


MITMNOPR-DOO— CUM TNOR-DWKHO—UMTNOl DOO CUM 
PDD DCD DO AAAAAAOAOAODOOCOOCOCOCCOC Kee — 
MMA LLL ODO ODOODOOOOOOOOOO 
pe ae ae le ee ee ee le le lola lolololeoleleleololelelelelelaleolelololo) 


aaaq. 6 aad aaqaaq aqaqaaaqfaafeéi aa 


DH MMT NOR- DHOOM MUM TNOR- DOO UMTMNOR ODO 
WOOOOOO0OOOR-P-P-P-P-P-P-P-P-R. WDD CDW AD ADDO DADA 
NOUN AINNNONINI ONION NNN NICU NINN 


mA SCeADs 
v04-000 


Sete Ge Ge te Ge Ge Ge Ge Ge Ge Geese Ge ee 
Oo 
oO 


7 
MISCCMDS = Miscellaneous Phone Commands f $ep-1984 02:13:3 AX-11 Bliss-32 V4.0-742 
PHNSHELP_CMD = Handle HELP Command 14- ~300 138 05:13:3 : PHONE .SRCIJMISCCMDS.B32;1 
0615 ! This Little routine is called by the Librarian for each Line it_extracts 
3018 i from the help library. We make a queue of these lines, using CTL buffers, 
FA i so that we can display them Later. 
+84 routine help_save(line) = begin 
0621 Local 
06 ¢ c: ref ctl; 
06 
oe ¢ 3 phn$make_ctl(.line,c); 
Bess insque(.c,.help_ pove.. head(1]); 
0627 return ss$_ normal; 
0628 
0629 2 end; 
-PSECT _LIBSSTATES,NOWRT, SHR, PIC,1 
00000 HELP_ =StATE: 
11F7 00000 ; TPASTYPE 
U.2: WORD 4599 
FFFF 00002 ; TPASTARGET 
U.3: WO -1 
4DF8 00004 ; TPASTYPE 
U.4: ORD 19960 
0000* 00006 ; TPASSUBEXP 
U.6: . 0 D <<U.5-U.6>-2> 
00000000* 00008 ; TPASADDR 
U.7: - LONG <<TOPIC_DSC-U.7>=4> 
11F7 OOO00C ; TPASTYPE 
U.8: «WORD 4599 
FFFF QOO0E Wy pam tf 1 
5DF8 00010 ; TPASTYPE 
U.10:  .WO 24056 
0000* 00012 ; TPASSUBEXP 
U.11:  .WO <<U.5-U.11>=2> 
00000000* 00014 ; TPASADDR 
U.12: LON <<SUBTOPIC_DSC-U.12>-4> 
FFFF 00018 ; TPASTARGET 
U.13: .WORD -1 
QO01A ; TOPIC 
U.5: -BLKB 0 
O02F OOO1A ; TPASTYPE 
U.14: -WORD 47 
O5F6 OO001C ; TPASTYPE 
U.15: WORD 1526 
002A OOO1E ; TPASTYPE 
U.16: .WORD 42 
05F1 00020 ; TPASTYPE 
U.17: WORD 1521 
002E 00022 ; TPASTYPE 
U.18: WORD 46 
15F6 00024 ; TPASTYPE 
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U.19: WORD 
3; TPASTARGET 
U.20: oW 


HELP_KEY:: 
: TPASKEYO 
U.1s BLK 


.PSECT 
TOPIC_DSC: 
.BLKB 
SUBTOPIC_DSC: 
TPARSE_BLOCK: 
. LONG 
-BLKB 
LIBRARY INDEX: 
LIBRARY _NAM: 
-BYTE 


AX-11 Bliss-32 V4.0-742 
PHONE .SRCJMISCCMDS.B32;1 


5622 
“1 
1070 
5166 
“1 


-LIBSKEYO$,NOWRT, SHR, PIC,1 


0 
0 
SOWNS ,NOEXE ,2 
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” SCCMDS MISCCMDS = Miscellaneous Phone Commands 
v04-000 PHNSHELP_CMD = Handle HELP Command 


7 
1B-Sep-1986 02:15:52 YAR] BLigsc32 v4 0-742, 
op90n900, 90% LONG 


-PSECT $CODES,NOWRT,2 


-WORD Save nothing 
SE Of C2 $0008 SUBL2 #4, SP 
E DD 0000 PUSHL 
04 aS DD ait PUSHL INE 

0000G CF 02 FB OO00A CALLS f2. PHNSMAKE_CTL 
0000° OF 00 BE OE O000F INSQUE aC, @HELP_ AAT: _HEAD+4 

50 01 D0 00015 MOVL #1, RO 

04 00018 RET 


; Routine Size: 25 bytes, Routine Base: $CODE$ + 003A 


Se Se Oe Se ee Be Oe Be Be Be Be Se Se Se SH Se Se Se Oe Oe Oe Se BH Se Oe Se Se ee Be Oe BH Se HSH SH Ss Oe Oe Oe Oe Oe oe BH Se Os os 
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MISCCMDS = Miscellaneous Phone Commands 16-Sep-1984 0 13:36 AX-11 Bliss-32 
PHNSHELP_CMD = Handle HELP Command 14-Sep-1984 12:53:2 PHONE .SRCJMISC 
0630 ! We begin by parsing the help parameters. If we get an error, just 

Oe ! tell the user and Suit. hus . 

6 ch$move(8, .parameters,tparse_block(tpa$l_stringcnt]); 

0634 ensTy tt 0: Pto ic.dses;. “ ie. . 

0635 eh$fill(0,8,subtopic_dsc); 

0636 tatus = (ibStparse(fparse_block,help_state,help_key); 

st H4 if .status eely Lib$_syntaxerr then ( 

0638 phn$inform(pfin$_badhelp) ; 

0639 3 return; 

0640 : 

064] check (.status); 
0648 ! Now we initialize the Librarian control and open the help Library. 

0645 status = lbrSini_control(Library_index,%ref(lbor$c_read) ,%ref(lbr$c_typ_hlp), library_nam); 
0646 check (.status); 

0647 status = Lbr$Sopen(library_index,describe('PHONEHELP') ,O,describe('SYS$HELP:.HLB')); 
0648 if not .status then ( 

0649 ; phn$Sinform(phn$_helpmissing); 

0650 return; 
gah 

065 : Now we read in the help information requested by the user. For each 

Bee 2! Line, help_save will be called to save it in memory. 

065 ‘ status = lbr$get_help(library_index,0,help_save,0.topic_dsc,subtopic_dsc); 

065 § check (.status); 
0658 status = lbr$close(library_index); 
0659 2 check (.status); 
0660 2 
sod § ! Now tell the user how to cancel the help information. 
Ree 2 phn$inform(phn$_helpcan) ; 
0665 $ ! Set the ‘'scrolling in progress’’ and ‘must prepare for scrolling’ flags 
pees § ! so the steering message routine will know what's happening. 
pees § phn$gv_scroller = phn$gv_scrollprep = true; 
Bene § ! Finally, queue a steering message to display the first help Line. 

0672 2 phn$queue_smb(smb__help2); 

067 § return; 

0674 

0675 1 end; 


-PSECT SPLITS,NOWRT ,NOEXE ,2 


50 4C 45 48 45 4E 4F 48 50 Q0000 P.AAB: .ASCII \PHONEHELP\ 
00009 -BLKB 3 
00000009 QO000C P.AAA: .LONG 9 
000 0099" 0010 -ADDRESS P.AAB 
48 2—€ 3A 50 4C 45 48 24 53 59 5 0014 P.AAD: .ASCI] \SYSSHELP:.HLB\ 
00021 -BLKB 3 


| “ 


7 
miecenes MISCCMDS = Miscellaneous Phone Commands tS 91 0 13:36 AX-11 Ot igs ae V4.0-742 
v04-000 PHNSHELP_CMD = Handle HELP Command ep-1984 12:53: PHONE .SRCJMISCCMDS.B32;1 
A 


| 1 
1 
BANOO 8. ht P.AAC: .LONG 13 
0000000" 00028 -ADDRESS P.AAD 


-PSECT $CODES,NOWRT,2 


$ 
-$ 


OOFC 90099 .ENTRY PHNSHELP_CMD, Save R2,R3,R4,R5,R6,R7 
57 000000006 00 9€ 00002 MOVAB LIBSSIGNAL, R7 
56 0000" CF 9E 00009 MOVAB LIBRARY_INDEX, R6 
SE 8 Ce OO00E SUBL ‘ 

E46 AG 06 BC 8 : 00011 MOVC3 #8, @PARAMETERS, TPARSE_BLOCK+8 
08 00 6E - 00 C 00017 movcS #0, (SP), #0, #8, TOPIC-DSC 
08 00 6E 00 2¢ 00016 MOVCS #0, (SP), #0, #8, SUBTOPIC_DSC 

D4 Ab 0002 
0000' CF 9F 00025 PUSHAB HELP_KEY 
0000" CF 9F 00029 PUSHAB HELP~STATE 
DC Ad 9F 0002D PUSHAB TPARSE_BLOCK 
000000006 00 03 FB 00030 CALLS #3, LIBSTPARSE 
52 50 D0 00037 MOVL RO, STATUS 
000000006 8F 52 D1 0003A CMPL STATUS, #LIBS_SYNTAXERR 
08 12 00041 BNEQ '1$ 
000000006 8F DD 00043 PUSHL  #PHNS$_BADHELP 
4C 11 00049 BRB 4$ 
05 52 £8 0004B 18: BLBS STATUS, 2$ 
52 DD O004E PUSHL STATUS 
67 01 FB 00050 CALLS #1, LIBSSIGNAL 
04 Ad 9F 00053 2$: PUSHAB LIBRARY NAM 
08 AE 03 DO 00056 MOVL #3, 8(SP) 
08 AE 9F 0005A PUSHAB 8(SP) 
08 AE 01 p00 0005D MOVL #1, 8(SP) 
08 AE 9F 00061 PUSHAB 8(5P) 
56 DD 00064 PUSHL 
000000006 00 04 FB 00066 CALLS #4, LBRSINI_CONTROL 
52 50 pO 0006D MOVL RO, STATUS 
05 52 €8 00070 BLBS STATUS, 3$ 
52 DD 00073 PUSHL STATUS 
67 01 FB 00075 CALLS #1, LIBSSIGNAL 
0000" CF 9F 00078 3$: PUSHAB P.AAC 
7E D4 0007C LRL ss = (SP) 
0000" CF 9F OO07E PUSHAB P.AAA 
56 DD 00082 PUSHL 6 
000000006 00 04 FB 00084 CALLS #4, LBRSOPEN 
52 0 00 00088 MOVL RO, STATUS 
0c 52 £8 OO08E BLBS STATUS, 5$ 
000000006 8F DD 00091 PUSHL #PHNS HELPMISSING 
00006 CF 01 FB 00097 4$: CALLS #1, PANSINFORM 
04 0009C RET 
D4 AO OF 6009 5$: PUSHAB SUBTOPIC_DSC 
CC AG 9F OOOAD PUSHAB TOPIC_DST 
7E D4 OO0A3 CLRL = = (SP 
FF3E cr 9F 000A5 PUSHAB HELP_SAVE 
E D4 000A9 CLRL = = (SPT 
56 DD OOOAB PUSHL  R6 
000000006 99 06 FB QOOAD CALLS #6, LBRSGET_HELP 
5 0 00 000B4 MOVL RO, STATUS 


i 
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mrsceres MISCCMDS = Miscellaneous Phone Commands 1 
v04-000 PHNSHELP_CMD = Handle HELP Command 1 
05 28 E8 00087 
DD QOOBA 

67 Y FB QOOBC 

6 DD QO0BF 
000000006 98 4 09 449) 
36 iH E8 QOOCB 

DD OO0C 

67 4 FB 000D 

00000000G 8F DD 000D 
bo00G EF 06 8B a90D¢ 
8 DD bors 
0000G CF 01 he 444 


; Routine Size: 235 bytes, Routine Base: S$CODE$ + 0053 


6$: 


7$: 


1984 02:13: AX-11 Bliss- 
1986 93:53:27 | EPHONE. SACI 
LBS STATUS, 6$ 
PUSHL STATUS 
CALLS #1, LIBSSIGNAL 
PJSHL R6 
CALLS #1, LBRSCLOSE 
MOVL RO, Mah 
BLBS STATUS, 7$ 
PUSHL STATUS 
CALLS #1, LIBSSIGNAL 
PUSHL #PHN$ HELPCAN 
CALLS #1, PANSINFORM 
BISB2 ag. PHN$GB_FLAGS 
PUSHL # 
pays #1, PHNSQUEUE_SMB 


MISCCMDS 
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MISCCMDS = Miscellaneous Phone Commands 
PHNSHELP2 = Display a Help Line 


OOooOOoCoooO 
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K 7 
16-Sep-1984 02:13: AX-11 Bliss-32 V4.0-742 
12280 8= 1982 95:13:35 PHONE. SRCIMISCCMDS 83251 
Rsbttl *"PHNSHELP2 = Display a Help Line’ 
i Functional Description: 
his steering message routine is called to fisetey the next 

help Line from the help mg We do each Line with a steering 

message so that other things can happen in between each Line. 
Formal Parameters: 

non 
Implicit Inputs: 

global data 


Implicit Outputs: 
global data 


Returned Value: 
none 


Side Effects: 


ee ee ee ee ee et 


global routine phn$help2: novalue = begin 


local 
c: ref ctl; 


! First we check to see if the help command has been cancelled. If so 
re ane all remaining help Lines from the help queue and throw 
! them away. 


if not .phn$gv_scroller then ( 
while not renque( help_save_headl0),c) do 
phn$kill_ctl(.c); 
) return; 


! If this is the first help Line displayed, we need to prepare the 
! screen by clearing most of it. 


if .phn$gv_scrollprep then ( 
phn$scro eh 
. phn$gv_scrollprep = false; 


! Now we remove the next help Line from the queue and display it on the 
! screen. If there are more Lines, we need to queue another steering message. 


if remque(.help_save_hecd[0),c) eqlu 0 then 

phnsqueve smB(smb__help2); 
phn$scroll_line(c€ctl_q_line)); 
phn$kill_cEl(.c); 


return; 


7 
MISCCMDS MISCCMDS = Miscellaneous Phone Co d 1 71 Ax-1 
"E58 wphennaromens | HECRSIBEE NBER 


1 
PHNSHELP2 = Display a Help Line 12:5 PHONE .S 


tie et f end; 


000¢ 00000 .ENTRY PHNSHELP2, Save R2,R3 
53 00006 CF 3 9000¢ MOVAB PHNSGB FLAGS, R3 
10 63 01 £0 0000 BBS #1, PHNS$GB_FLAGS, 2$ 
52 0000" OF OF 0000B 1$: REMQUE @HELP_SAVE-HEAD, C 
39 (1D 99010 BVS 5$ 
52 DD 0901 PUSHL (C 
00006 CF 01 FB 40014 CALLS #1, PHNSKILL_CTL 
FO 11 00019 BRB 1$° 
08 63 02 €1 0001B 2$: BBC #2, PHNSGB_FLAGS, 3$ 
0000G CF 00 FB OOOTF CALLS #0, PHNS$SCROLL_PREP 
63 04 8A 00024 BICB2 PHN$GB_FLAGS 
52 0000" DF OF 00027 3$: REMQUE SHELPS SAVE-HEAD, C 
50 DC 0002C MOVPSL 
50 50 02 01 EF O00¢E EXTZV , #2, RO, RO 
07 12 000 BNEQ is 
05 DD 00035 PUSHL #5 
00006 CF 01 FB 00037 CALLS #1, PHNSQUEUE_SMB 
10 A2 99F 0003C 4$: PUSHAB 
00006 CF 01 FB 0003F CALLS #1, PHNSSCROLL_LINE 
52 DD 00044 PUSHL 
00006 CF 01 FB 00046 CALLS #1, PHNSKILL_CTL 
04 00048 5$: RET 


; Routine Size: 76 bytes, Routine Base: S$CODE$ + 013E 
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M 7 
= Miscellaneous Phone Commands 16-Sep-1984 313: AX-11 Bliss 
CTORY_CMD = Provide a List of Users 12286871382 93:13:36 PHONE. SRCIM 
Rsbttl "PHNSDIRECTORY_CMD = Provide a List of Users’ 
Functional Description: 


This routine handles the DIRECTORY command, which preerens a list of 
users that we could call, not unlike the phone book. 


—_ 6 


Formal Parameters: 
n Address of descriptor of the node we want to list. 


Implicit Inputs: 
global data 


global data 
' Returned Value: 
none 


Side Effects: 


i 
i 
i 
i 
i 
i 
i 
i 
Implicit Outputs: 
i 

i 
t 

i 
i 

i 
i 


global routine phn$directory_cmd(node): novalue = begin 


bind . 
node_dsc = .node: descriptor; 
local 
status: long, 
node_tsb: tsb; 
local 


local_described_buffer(prepared_node,nam$c_maxrss) ; 


! We begin by preparing the node name specified by the user. This gets 
! it ready for use in generating the directory. 


phn$prepare_users_target (node_dsc,true,prepared_node) ; 


! Now we make a TSB in order to parse the node name. If we get a syntax 
! error, or if the user included a user name with the node name, we 
! tell the user and quit. 


status = phn$make Sgotprepered nade nade tenis 
if .status nequ phn$_ok then ( 
phn$inform(.status); 
return; 


); 

if .node_tsb(tsb_v_user] then ( 
phn$informTphn$_onl ynode) ; 
return; 

); 

! Now we have to set up so that we can display the first directory Line. 

! This is dependent upon whether it's a local or remote directory. 


MISCCMDS 
v0e=000 
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S = Miscellaneous Phone Commands 19-30-1386 06:13:36 AX=11 Oh igs ee V4.0-742 
ECTORY_CMD = Provide a List of Users 14-Sep-1984 12:53: PHONE .SRCIJMISCCMDS.B832;1 
begin 
loreal 


lLocal_described_buffer(pub_address,4); 
if not .node_tsb(tsb_v_remote] then 


: It's a local directory. Queue a steering message to do the first 
! Line. We pass a pub address of zero, meaning ‘‘local directory”. 


-pub_address(ptr] = 0 
else ( 


! It's a remote directory. Queue a steering message to do the first 
! Line, containing the address of a temporary PUB describing the node. 


status = phn$estab_Link(prepared_node,.pub_address(ptrJ); 
if alate noes phn$_ok then 
return; 


); 
peebqueus_ eb enh __StrScterys gue _eeerene?; 
end; 


: Ok, we're pretty much done. We need to tell the user how to cancel 

! the directory. We also need to set the ‘'scrolling in erogress and 

! “must prepare scrolling’ flags so the steering routine will know what's up. 
phn$Sinform(phn$_dircan); 


phn$gv_scroller = phn$gv_scrollprep = true; 


return; ° 
end; 
000¢ 00000 .ENTRY PHNSDIRECTORY_CMD, Save R2,R3 
FF 100808” CE bE 00009 MOAB SSONtSED, SP 
Oc AE FF 8F OA 00005 MOVZBL #255, PREPARED_NODE 
10 AE 14 AE 9E 0001 MOVAB PREPARED_NODE+8, PREPARED_NODE+4 
OC AE 9F 00018 PUSHAB PREPARED"NODE 
01 DD 0001B PUSHL #1 
04 AC DD 0001D PUSHL NODE 
00006 CF sai 03 FB 00 9 CALLS #3, PHNSPREPARE_USERS_TARGET 
10 AE 9F 900 9 PUSHAB PREPARED_NODE 
0000G CF 02 FB 0002C CALLS #2, PHNSMAKE_TSB 
3 50 pO 00031 MOVL 0; STATU 
5 52 D1 00034 CMPL STATUS, R 
04 13 00037 BEQL 
52 DD 00039 PUSHL STATUS 
0c 11 00038 BRB 2$ 


Page 20. 
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mASCeRDS MISCCMDS = Miscellaneous Phone Commands 1o~se0 138) 053] 
v04-000 PHNSDIRECTORY_CMD = Provide a List of Users 14-Sep-1984 12:5 
oc FFIC§=6©CD 01 €1 90078 1$: BBC 
00000000G 8F DD 0004 PUSHL 
0000G CF 01 FB 00049 2$: CALLS 
04 Q004E RET 
6E 04 DO QOO4F 3$: MOVL 
04 «AE 08 AE 4) B20 26 MOVAB 
05 FFiIC }§6©CcD) «6€8 0005 LBS 
04 BE D4 0005C CLRL 
13° 11 OOOSF BRB 
04 AE DD 00061 4$: PUSHL 
10 AE 9F 00064 PUSHAB 
0000G CF 9 FB 4+ CALLS 
26 DO 0006C MOVL 
5 52 Di O006F CMPL 
19 12 00072 BNEQ 
5E DD 00074 5$: PUSHL 
OF DD 00076 PUSHL 
0000G CF 02 FB 00078 CALLS 
00000000G 8F DD 0007D PUSHL 
0000G CF 01 FB 00083 CALLS 
0000G CF 06 88 00088 BISB2 
04 0008D 6$: ET 
3; Routine Size: 142 bytes, Routine Base: $CODE$S + 018A 


3:36 AX=11 Bliss-32 V4 
:2 PHONE .S RCIA ISCCMD 
# 


1, NODE_TSB, 3$ 
aPHNS ONC YNODE 
, PANSINFORM 


PUB ADDRESS 

Pub ADDRESS+8, PUB_ADDRESS+4 
NODE_TSB 

apuB- “ADDRESS +4 

PUB_ADDRESS+4 

PREPARED NODE 

#e, PHINSESTAB. LINK 


RO, STAT 
STATUS, R3 
6$ 


roe 
#2, Sqytry SMB 
DIRCAN 


Ag RCAN 
NPANS INFORM 
16. PHNS$GB_FLAGS 


Be Be Se Se Be Be Se Se Be Se Fe Fe Fe Fe Fe Fe Fe Ge Ge Fe Be Be 
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mA SCeRDs MISCCMDS = Miscellaneous Phone Commands 1$-sep-19 40 13:3 AX=11 Bliss-32 V4.0-742 Page 22 
v04-000 PHNSDIRECTORY2 = Display Directory Line 14-Sep-1984 12:53:2 PHONE. SRCJMISCCMDS.B32;1 (11) 
; 0827 1 &sbttl "PHNSDIRECTORY2 - Display Directory Line’ 
; 310 0828 1 !++ = ae: 
3; 3N] 0829 1 ! Functional Description: : ; 
3 216 4 o 1! This steering message routine is called to display the next line. 
; 0831 1! of directory information. This is done one at a time with steering 
3 aie oes : messages so that other things can happen in between. 
>; 316 0834 1 ! Formal Parameters: ‘ 
; a 0835 1! pub_address If it's a local directory, this is zero, If it's 
: 218 oes : remote, it's the address of a PUB describing the node. 
; 520 0838 1°! Implicit Inputs: 
; 521 0839 1! global data 
; dee 0840 1! oy 
: 3es 0841 1! Implicit Outputs: 
3; «3e6 0842 1! global data 
3 6Dee 0843 1! 
s Seo 0844 1 ! Returned Value: 
S per 0845 1! none 
> 528 0846 1! 
s ey 0847 1 ! Side Effects: 
; 3 0848 1! 
s 6SS) 0849 1 !-- 
; Sa 0850 1 
3. S33 0851 1 ; : 
; 534 0852 2 global routine phn$directory2(pub_address): novalue = begin 
ey) 0853 2 | 
3; 336 0854 2 bind ; 
e Zor 0855 2 pub_address_dsc = .pub_address: descriptor, 
: 538 0856 2 np = .pub_address_dsc(ptrj: ref pub; 
; oF 0857 2 
; 540 0858 2 own : y 
3; (541 0859 2 wild_pid: long 
; 542 0860 2 person_count: long; 
; 543 0861 2 
> 544 0862 2 local 
: 545 0863 2 status: long, 
; 546 0864 2 decnet_iosb: block(8,bytel; 
: 547 0865 2 local ; : : 
; 548 0866 2 local_described_buffer(display_line,79); 
; 549 0867 2 
: 550 0868 2 y . ; 
er) 0869 2 ! First we check to see if the directory has been cancelled. If so, quit. 
; 226 boy ; ! If it's a remote directory, though, make sure we break the Link. 
; 554 0872 if not .phn$gv_scroller then ( 
. Bee 0873 3 if .np neqa 0 then | 
; 556 0874 3 phn$break_Link(.np,smb__slave_done) ; 
s 3S7 0875 3 return; 
; 338 0876 § bs 
3s SOP 0877 : : ; . ‘ 
; 560 0878 2! If this is the first Line of the directory, we need to prepare the screen 
3 261 + t44 ' by clearing most of it and displaying some headings. Zero person count. 
: 265 0881 if .phn$gv_scrollprep then ( | 
: 564 P bees phn$scroll_prep(describe( - ; 
3 365 088 ‘Process Name User Name Terminal Phone Status')); 
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MISCCMDS MISCCMDS = Miscellaneous Phone Commands 16-Sep-1984 02:13:3 AX-11 Bliss-32 V4.0-742 Page 23 
v04-000 PHNSDIRECTORY2 = Display Directory Line 137800=13be 03:33:35 PHONE .SRCIJMISCCMDS.B32;1 . (11) 
; 366 0884 wild_pid = <1; 
. on Beaeeeetigees « tt 
; phn$gv_scrollprep = false; 
; 569 0887 ); 
; $f 0888 . 
; 2f +494 ! Now we split up depending on whether it's a local or remote directory. 
3 378 0891 if .np eqla 0 then ( 
> 574 p836 
3 2f? O837 : ! It's a local directory. Get the next directory line, if it exists. 
;. Ore 0895 : status = phn$directory_line(wild_pid,display_Lline); 
3; of 0896 status = .status eqlu phn$_ok; 
; 579 0897 3) else ( 
; 580 0898 3 ; 
> 381 0899 3 ! It's a remote directory. Send a steering message to the network 
3; 382 0900 3 : slave asking it for a line. Get the Line. If its length is zero, 
; 583 0901 3 ! we're done with the directory. 
; 584 0902 3 
;. Sed 0903 3 paedound sans .00 .00p 8 )rec servers 
; 586 0904 3 Status = srt ao ps Ww channel),display_line, false); 
5 yer 0905 3 status = .status eqlu phn$_ok and .display_lineLlen] gtru 0; 
; 588 0906 3 if not .status then 
; 3 0907 3 phn$break_Link(.np,smb__slave_done); 
s 390 0908 2); 
: 39) 0909 2 
s 392 0910 2 ! Let's see what happened with that directory Line. 
s 393 0911 2. 
: 594 0912 3 if .status then ( 
Dee 0913 3 
; 596 0914 3 ! We got one. Scroll it onto the screen and queue a steering message 
:; 0915 3 ! so we'll be recalled to do the next Line. 
; 598 0916 3 
; 599 0917 3 phn$scroll_line(display_Lline); 
; 600 0918 3 inc (person_count); | 
; 601 0919 3 phn$queue_smb(smb__directory2,pub_address_dsc); 
3; 602 0920 3 
; 603 0921 3) else ( 
: 604 0922 3 s 
: 605 0923 3 ! There wasn't another Line. Tell the user how many people were 
3; 606 0924 3 ! Listed and quit. 
; 607 0925 3 ; 
; 608 0926 3 phn$scroll_line(describe("')); 
: 609 0927 : display_lineLlen] = 79; : 
; 610 P 0928 status = $fao(describe("!UL person!%S Listed."), 
3; 611 P 0929 3 display_Lline, 
3; 612 P 0930 3 display_line, 
s 615 0931 ; -person_count); 
: 614 oot) check (.status); 
s 615 0933 3 phn$scroll_lLine(display_Lline); 
; 616 0934 2); 
3; 617 0935 2 
s 613 0936 § return; 
; 619 0937 
: 620 0938 1 end; 
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-PSECT $PLITS,NOWRT,NOEXE,2 


20 20 20 65 6D 61 4E 20 73 73 65 63 6F 72 50 Q002C P.AAF: .ASCII \Process Name User Name Terminal\ ; : 
20 20 20 20 20 65 6D 61 4E 20 rg 65 73 cg 0 00088 : : 
6C 61 6€ 69 6D 72 65 54 30 0 O004A : ; 
53 20 65 6E 6F 68 50 20 20 20 20 20 20 20 20 00054 sASCII \ Phone Status\ : ; 
73 75 74 61 74 00063 : ; 

0000003C 00068 P.AAE: .LONG 60 : : 

00000000" 0006¢ .ADDRESS P.AAF : : 

0070 P.AAH: .BLKB. 0 : : 

00000000 00070 P.AAG: .LONG 0, : : 

00000000" 00074 “ADDRESS. P : : 

6C 20 53 25 21 6E 6F 73 72 65 70 20 4¢C 55 21 00078 P.AAU: .ASCII rot ———_ Listed.\ : ; 
2—E 64 65 74 73 69 00087 : ; 

0008D .BLKB 3 ; 

00000015 00090 P.AAI: .LONG 21 : ; 

00000000" 00094 .ADDRESS P.AAJ : ; 

.PSECT $OWN$,NOEXE,2 F 

QOOAO WILD_PID: : 

.BLKB 4 : 

000A4 PERSON_COUNT: ; 

-BLKB 4 $ 

.EXTRN SYS$FAO : 

.PSECT $CODE$,NOWRT,2 : 

01FC 00000 .ENTRY PHNSDIRECTORY2, Save R2,R3,R4,R5.R6,R7,R8  ; 0852 : 

58 00006 CF 9E 00002 MOVAB PHN$GB FLAGS, ; : 

57 0000G CF 9E 00007 MOVAB PHNS SCROLL LINE, R7 ; : 

56 00000000G 8F 00 0000C MOVL #PHNS_OK, R : F 

55 0000' CF 9E 00013 MOVAB PERSON COUNT, RS ; 3 

5E AS AE 9E 00018 MOVAB <-92(SP), SP : : 

53 04 AC DO 0001C MOVL PUB ADDR RESS ; 0855 | : 

7E 4F 8F 9A 00020 MOVZBL #797 DISPL INE > 0866 | ; 

04 AE 08 AE 9E 00024 MOVAB DISPLAY INETB. DISPLAY_LINE+4 3 : 

11 s:) 01 £0 00029 BBS “i, PHNSGB.F FLAGS, 2$ ; 0872 | : 

046 B3 DS 90020 TSTL a4(R3 : 0873 ; 

01 12 00030 BNEQ 1$ : : 

04 0003 RET F : 

00 DD 9003 1$: PUSHL #13 + 0874 : 

04 B3 DD 000 PUSHL  @4(R3) F : 

0000G CF 02 FB 00038 CALLS #2, PHNSBREAK_LINK ; | 3 

04 00030 RET : 0872. : 

12 68 02 a 0003 28: BBC #2, PHNSGB_FLAGS, 3$ : 0881. : 
0000' CF 9F 0004 PUSHAB P.AAE : 0883 | : 

00006 CF 01 FB 00046 CALLS #i, PHNSS CROLL _PREP : 3 

FC OAS 01 CE 00048 MNEGL #1 > 0884 : 

65 D4 0004F CLRL PEASON COUNT : 0885 : 

68 04 BA 90051 BICB2 PHNS$GB_ FLAGS : 0886 : 

52 04 B3 dO 00054 3s: MOVL eetrsy. R2~ : 0891 ; 

1B 12 00058 BNEQ 5$ ; : 

5E DD O005A PUSHL SP > 0895 : 

FC 30 ASsO9F:«0005C PUSHAB WILD_PID : : 
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0000v cf 92 FB OOOSF CALLS #2, PHNSDIRECTORY_LINE : : 
4 DO 00064 MOVL RO, STATUS : ; 
50 D4 00067 CLRL R : 0896 : 
56 54 D1 00069 CMPL STATUS, R6 : ; 
08 12 0006C BNEQ 4$ : ; 
50 Dé 0006 INCL RO : ; 
54 50 D0 9007 4$: MOVL RO, STATUS : : 
3F 611 0007 BRB RS : 0891 
OF DD 00075 58: PUSHL #15 + 0903 
52 DD 00077 PUSHL Re : 
00006 CF 02 FB 00079 CALLS #2, PHNSSEND_SMB : 
7E D4 o007E CLRL 0s = (§P) + 0904 
04 AE 9F 0008 PUSHAB DISPLAY_LINE : 
7E OOF4 ce 3c 00083 MOVZWL 244(R2)> -(SP) : 
00006 CF 03 FB 00088 CALLS #3, PHNSREAD_SLAVE : | 
54 50 D0 00080 MOVL RO, STATUS ; 
51 D4 00090 CLRL = RV : 0905. 
56 54 D1 00092 CMPL STATUS, R6 : 
02 12 00095 BNEQ 6$ : 
51 06 00097 INCL R1 : 
50 D4 00099 6$ CLRL RO : 
6— B85 0009B TSTW  DISPLAY_LINE : 
02 13 0009D BEQL 7$ : 
50 D6 O009F INCL RO ; 
54 51 D2 OO0A1 7$: MCOML R1, STATUS : 
54 50 54 CB O00A4 BICL STATUS, RO, STATUS ; 
0c 54 £8 000A8 BLBS STATUS, 9$ + 0906. 
OD DD 000AB PUSHL #13 : 0907 | 
52 DD OOOA PUSHL Re : 
00006 CF 02 FB OOOAF CALLS #2, PHNSBREAK_LINK ; 
11 54 €9 000B4 8$: BLBC STATUS, 10$ : 0912) 
5E DD 00087 9$: PUSHL SP : 0917. 
67 01 FB 000B9 CALLS #1, PHNSSCROLL_LINE : 
65 D6 000BC INCL § PERSON_COUNT : 0918. 
53 DD OOOBE PUSHL R3 : 0919. 
OF DD 000C0 PUSHL #15 3 
0000G CF 02 FB 000C2 CALLS #2, PHNSQUEUE_SMB ; 
04 000C7 RET ; 0912, 
0000' CF 9F 000C8 10S: PUSHAB P.AAG : 0926 
67 01 FB OO0CC CALLS #1, PHNSSCROLL_LINE : 
6E 4F 8F 9B OOOCF MOVZ2BW #79, DISPLAY_LINE > 0927 | 
65 DD 00003 PUSHL PERSON COUNT : 0931 
04 AE 9F 00005 PUSHAB DISPLAY_LINE : 
08 AE 9F 90008 PUSHAB DISPLAY“LINE : 
0000' CF 9F 000DB PUSHAB  P.AAI : 
000000006 00 04 FB OOODF CALLS #4, SYSSFAO : 
54 0 pO 00066 MOVL RO, STATUS : 
09 54 €8 OOOE9 LBS STATUS, 11$ : 0932 
54 DD OOOEC PUSHL STATUS ; 
000000006 60 01 FB OEE CALLS #1, LIBSSIGNAL : 
SE DD OOOFS 11$: PUSHL : 0933 
67 01 FB 000F7 CALLS #1, PHNSSCROLL_LINE : 
04 OOOFA RET : 0938 
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$373 : yeptet *PHNSDIRECTORY_LINE = Build a Directory Line’ 
0941 1 | Functional Description: 
O8eg ii This routine is called to build a directory Line for displaying. 
0943 1! It uses the wild PID to obtain the next available process, and 
bod : | then obtains information from the process for the line. 
0946 1 | Formal Bs > ile emer 
0947 1! ild_pid os of a penquaré wild PID. Must be initialized 
0948 1! o -1 at the beginning. 
0949 1 Line_buf }> Po R. of a cence teter of a display Line buffer. 
0950 1! We fill in the length. 
0951 1! 
O32¢ 1 i Implicit Inputs: 
0953 1! global data 
0954 1} 
0955 1! panes? papeucs 
0956 1! global data 
0957 1! 
0958 1 | Returned Value: 
944 : phn$_noproc No more processes to display. 
0961 1 ! Side Effects: 
0962 1! 
0963 1 i- 
0964 1 
0965 1 . 
bone $ global routine phn$directory_lLine(wild_pid,line_buf) = begin 
0968 2 own 
0969 2 own_described_buffer(process_name,16), 
0970 2 own_described_buffer(user _name,12), 
0971 2 own_described_buffer(terminal_number,7), 
0972 2 parent_pid: long; 
0973 2 |. 
0974 2 bind . 
0975 2 get_info = MOA TEC pords FS). word(jpi$ "vm 
0976 2 Long(process_ nenese 
0977 2 cena’ pcecess nam 
0978 2 word( aFewordcypis. username), 
0979 2 Long(user_name+ 
0980 2 Long(user_name) 
0981 2 word(7) ,word(jpi$,_ terminal), 
0982 2 3(terminal_number+8), 
0983 2 eyerainal. number), 
0984 2 word(ay. wor dC [pis owner), 
0985 § Long (parent _ pid), 
0986 Long ( 
0987 Long(0)5; 
0988 
0989 local 
0990 status: long, 
0991 terminal_ptr: ref descriptor, 
099 phone_status_ptr: ref descriptor; 
$38 
0995 ! We obtain information about the next process using the wildcard S$GETJPI 
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3 679 444) ‘ tect} ity. If we get a bad status, or if the process does not Own a terminal 
i; 680 099 i (isn't interactive), then just try the next one. Also, we don't display 

; 681 0998 i subprocesses. 

; 68 0999 

: Re + 8 beeen ee eee 

; status = $getjpi(efn= sph n a Jpi efn, 

; 685 P 1006 pidad wild.» 

; 686 100 . Pemtste =get_ qafos: 

; 687 1004 if .status eqlu ss$_nomoreproc then 

: ons 44 return phn$_noproc; 

; 244 i ) until (.status eqlu ss$_normal) and (.terminal_numberClen] nequ 0) and (.parent_pid eqlu 0); 

: 24 ION Swaitfrlefn=phn$k_getjpiefn); 

: 694 1011 2 ! OK, now we split up depending upon whether the process’ terminal can 

g $2? 1oi¢ e i be used as a telephone. 

: oot Ste ; if phn$term_characteristic(terminal_number,tt$m_scope) then ( 

: 344 isis ; ! This process has a nice terminal. We will display its number. 

; 701 1018 3 terminal_ptr = terminal_number; 

; 702 1019 3 

3; fe 1020 3 ! The phone status is determined by whether or not the person 

; pe 10¢) ; ! has set /NOBROADCAST to unplug the phone. 

; 706 1023 4 phone_status_ptr = (if phn$term_characteristic(terminal_number,tt$m_nobrdcst) then 

3: 707 10246 4 describe('/nobroadcast') 

; 708 1025 4 ; else 

; 709 1026 3 describe('available')); 

: 710 1027 3 

: 711 1028 3) else ( 

: te 1029 3 

; 71 1030 3 ' As it turns out, the guy's terminal is useless. Set up to 

: 714 1031 3 ! display that. 

: 715 1g 3 

3: 716 1033 3 terminal_ptr = describe('unusable'); 

: 717 1034 3 phone_status_ptr = describe('---'); 

; 718 1035 2); 

; 719 1036 2 

; 720 1037 2 ! Now we use $FAO to build the directory Line to be displayed. It contains 

s fel 1038 2! the pretess name, user name, terminal info, and phone status info. 

3 $6 1039 * i Display the Line. 

3; fe 1040 

: 726 P 1041 2 status = $fao(describe('!16<!AF!>!16<!AS!>!16<!AS!>!AS"), 

: 725 P 94 § -line_buf, 

; 726 P 104 .line-buf, 

3 727 P 1044 2 -process_name[len], 

: 728 P1045 2 -process_name(ptr], 

: i. P 1046 2 user_nameé, 

; 730 P 1047 -terminal_ptr, 

. an 1048 -phone_status_ptr); 

3 73g 1049 check (.status); 

: 1050 

: 734 1051 return phn$_ok; 

s #35 1052 2 
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QOOAC 
00080 
000C0 


-PSECT S$PLITS,NOWRT,NOEXE,2 
P.AAK: ened 16 


ORD 796 

ADDRESS PROCESS_NAME+8 
ADDRESS PROCESS NAME 
“WORD 12 
WORD 514 

ADDRESS USER_NAME+8 
ADDRESS_USER_NAME 
“WORD 7 
“WORD 797 
“ADDRESS TERMINAL_NUMBER+8 
“ADDRESS TERMINAL NUMBER 
“WORD 4 
“WORD 771 
“ADDRESS PARENT_PID 
“LONG 0 


LONG 
-AAM: .ASCII \/nobroadcast\ 


P 
P.AAL: .LONG 12 
-ADDRESS P.AAM 
P.AAO: .ASCII \available\ 
-BLKB 3 
P.AAN: .LONG 9 
eADDRESS P.AAO 
P.AAQ: .ASCII \unusable\ 
P.AAP: .LONG 
ADDRESS P.AAQ 
P.AAS: .ASCII \---\ 
-BLKB 1 
P.AAR: .LONG 3 
-ADDRESS P.AAS 
P.AAU: .ASCII] \!I16<!AF!>'16<!AS!'>!16<!AS!'>!AS\ 
-BLKB 
P.AAT: 


“LONG 30 
-ADDRESS P.AAU 
.PSECT SOWNS,NOEXE,2 
PROCESS _NAME : 
.LONG 16 
“ADDRESS, PROCESS_NAME +8 
USER_NAME : 
-LONG 12 
ADDRESS YSER_NAME +8 
LKB. 1 


8 : 
TERMINAL NUMBER: 


. 7 
-ADDRESS_ TERMINAL _NUMBER+8 
-BLKB 7 
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yo2-000 PHNSDIRECTORY_LINE = Build a Directory Line 14- et 7 05:43:35 PHONE.SR RCM 1secMD8 §.832;1 age 43} 
ppOE -BLKB 1 
OOE4 PARENT_PID: 
-BLKB 4 
GET_INFO= 


P.AAK 
sEXTRN SYSSGETJPI, SYSSWAITFR 
-PSECT $CODES,NOWRT,2 


003¢ 90009 .ENTRY PHNSDIRECTORY_LINE, Save R2,R3,R4,R5 : 0966 
55 0000' cF 9€ 000¢ MOVAB GE ‘ : | 
54 0000° cr 3 999 MOVAB TERMINAL_NUMBER, R4 : 
E 7C 0000C 1$: CLRQ = = (SP) t 1003 
7E D4 00008 CLRL 0s = (SP) : | 
55 DD 0001 PUSHL 5 : 
7E D4 00012 CLRL. = = (SP) : 
04 AC DD 00014 PUSHL WILD_PID : 
01 DD 00017 PUSHL #1 : 
000000006 00 07 FB 90019 CALLS #7, SYSS$GETUPI : 
“3 50 pO 00020 MOVL . : 
000009A8 = &F 53 D1 00023 CMPL STATUS, #2472 > 1004 
08 12 0002A BNEQ 4 : | 
50 000000006 8F DO 000¢¢ MOVL § #PHNS_NOPROC, RO + 1005. 
04 00033 RET : 
01 53 D1 00034 2$: CMPL = STATUS, #1 > 1007) 
D3 12 00037 BNFO ~=«:'1$ : 
64 B5 00039 TSTW  TERMINAL_NUMBER : 
CF 13 00038 BEQL Ss : 
10 A4 05 00030 TSTL PARENT_PID 3 
CA 12 00040 BNEQ 1s ; 
01 DD 00042 PUSHL + 1009. 
000000006 00 01 FB 00044 CALLS SYSSWAITER : 
7E 1000 8F 3C 00048 MOVZWL Ms , =(SP) + 1014 
54 DD 00050 PUSHL  R4 : 
00006 CF 02 FB 0005¢ CALLS #2, PHNSTERM_CHARACTERISTIC ; 
1F 50 €9 0005 BLBC ; F 
52 64 SE 0005A MOVAB TERMINAL_NUMBER, TERMINAL_PTR : 101 
00020000 8F DD 0005D PUSHL #131072 : 102 
54 DD 00063 PUSHL R4 : 
00006 CF 02 FB 90065 CALLS #2, PHNSTERM_CHARACTERISTIC : 
06 5 9 006A BLBC m ; 
50 40 AS 9E 00060 MOVAB P.AAL, PHONE_STATUS_PTR 3 1024 
OF 11 00071 BRB ; 
50 54 A + ite 3$: MOVAB P.AAN, PHONE_STATUS_PTR : 1026 
08 11 0007 BRB 5$ : 1014 
26 4 AS 9E 00079 4$: MOVAB P.AAP, TERMINAL _PTR : 1033 
5 70 AS 9E 0007D MOVAB P.AAR. PHONE ~STATUS_ PTR > 1034 
50 DD 00081 5$: PUSHL PHONE STATUS~P + 1048 | 
52 DD 0085 PUSHL TERMINAL _PT ; 
EC Ad 9F 000 PUSHAB U ; 
D8 AG po 00 PUSHL PROCESS _NAME +4 ; 
7E D4 Ad 3C 00088 MOVZWL CESS"NAME, -(SP) ; 
08 AC ODD 0008 PUSHL tne UF ; 
08 AC pd 0092 PUSHL LINE “BUF ; 
0098 C5 9F 0009 PUSHAB P.AAT ; 
000000006 99 98 FB 0099 CALLS a SYS$FAO ; 
5 DO O00A0 MOVL RO. STATUS ; 


; Routine Size: 
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v4.0- 
p$.8 
0043 BLBS STATUS, 6$ 
A PUSHL ST 
OOA CALLS #1, LIBSSIGNAL 
OOAF 6$ MOVL § #PHNS$_OK, RO 
008 RET 


531 
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v04-000 PHNSMAIL_CMD = Handle MAIL Command 14-Sep-1984 12:53:2 PHONE. SRC JMISCCMDS .B32;1 (13) 
: 738 1054 1 %sbttl ‘PHNSMAIL_CMD = Handle MAIL Command' 
; iy 1055 1 !+44 
; 740 1928 1 ! Functional Description: 
; 741 1057 1! This routine handles the MAIL command, which is used to send 
; 74 1058 1! a short phone message to another user. We will spawn a subprocess 
s 74 1059 1! to send the message with the MAIL utility. 
; 744 1060 1! 
3 £45 1061 1 ! Formal Parameters: , 
> 746 13e8 1 5 parameters The rest of the command Line as entered by the user. 
3 rer 1065 1! It is assumed to be in the following form: 
> 748 1064 1! addressee ‘‘message[''] 
: 749 1065 1! a 
; (0 1066 1 ! Implicit Inputs: 
s i 1067 1! global data 
; Peg 1068 1! 
; 1069 1! Implicit Outputs: 
> 754 1070 1! global data 
3; to 1071 1! 
: 756 1072 1 ! Returned Value: 
3 for 1073 1! non 
; Os wre yt. 
3; fo 1075 1! Side Effects: 
: 760 1076 1! 
; 761 1077 1 !-- 
; 762 1078 1 
s Tes 1079 1 
3 764 1080 2 global routine phn$mail_cmd(parameters): novalue = begin 
; 765 1081 2 | 
; 766 1082 2 bind f 
s 67 1083 2 parameters_dsc = .parameters: descriptor; 
; 768 1084 2 
; rey 1085 2 local 
3; 770 1086 2 status_1 : block(4,bytel, 
s oft 1087 2 status_2 : blockl4 pyees 
s tre 1088 2 priv_vec : vectorLe, ongi, 
3; 773 1089 2 char_ptr: Long. 
3 774 1090 2 message_dsc: descriptor; 
; 775 1091 2 
3; 776 1098 2 , ' ‘ 
s ver 1093 2 ! We begin by rebuilding oe pareteters descriptor so it describes only. 
3; re 1094 2 ! the addressee. Then we build a new descriptor, message_dsc, to describe 
3 Ags 3 § ! the phone message text. 
: 781 1097 char_ptr = ch$find_ch(.parameters_dscClen],.parameters_dscCptr],''"); 
: 782 1098  - ar_ptr sete then ? 
3; «783 1099 phn$inform(phn$_badmailcmd) ; 
3; «6784 1100 return; 
gs fee 1101 2); 
: 786 1102 2 message_dscClen] =_.parameters_dsc[len] - (.char_ptr - .parameters_dsc(ptr]); 
; 787 1103 parameters _dscClen) = .char_ptr - .parameters_dsclptr]; 
; 788 1104 if .parameters_dsctien] eqlu Q then ( 
; 789 1105 phn$inform(phn$_badmailcmd); 
: 790 1106 3 return; 
3; «(791 1107 ds 
; 1108 
; 1109 message .dscCptr) = .char_ptr + 1; os 
3 794 1110 char_ptr = cn$find_ch(.message_dscClen]-1,.message_dsc(ptrj,''''); 
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v04-000 PHNSMAIL_CMD = Handle MAIL Command 12-Sep-1986 93: 43: 35 PHONE .SRCJMISCCMDS.832;1 ¥ as 
; 795 1111 message_dsc(len] = (if .char_ptr eqla 0 then .message_dscL[len] - 1 | 
; f W116 else .char_ptr = .message_dsc(ptrJ); 
: 798 1114 ' Put out a prompt so the user knows it's gonna take a while to send 
; 799 1115 ! this bloody message. 
; 809 1116 
3 50) iit phn$inform(phn$_sendingmai |); 
; 80 1119 ! Now we can create a reerecess to mail the acssage to the addressee. 
; 804 1120 ! This is done using LIBSSP 
; 805 1121 
; 80 \is¢ begin 
; 80 11 local ; 
: 3 ise local_described_buf fer (command_buf ,128); 
; 810 1126 ch$copy(30,uplit byter MAIL/SUBJECT=""PHONE Message: '), 
; 811 1127 3 gnessene, dsc Eiand, message. dscCptri, 
3 si¢ 1128 ; 6,uplit Byte(' so 
; «81 1129 -parameters_ dscClend,,baraneters. dscCptr], 
> 814 1130 3 command_bufCl Lend. . command. bufCptri); 
s 81S 1131 ; priv_vec(0] = Cisbftpost ties (orvsy netmbx)) oF 
: 816 1135 Sbitposition(prv$v_oper)) or | 
3 Bi 1135 3 (J"$bi toes tion (prvey> prmmbx)) or 
; 818 1134 3 (1*$bitposition(prv$v_ sysnam)) or 
; 819 1135 3 (1*$bitposition(prv$v_world)); 
; 820 1136 3 priv. vec(1) = 
; 821 1137 ; setsrvienbf lg: -¥ prvadr=priv_vec); 
; 822 1138 status_2 = Li $spawn (command buf, $descriptor(' NL:'),0,%ref(%b'010"),0, 
s Bes 1139 3 »status_1); 
: 824 1140 3 $setprv(enbflg=1,prvadr=priv_vec); 
; 825 1141 2 end; 
; 826 1142 2 ay 
3 Ser 1143 2 ! If we encountered a problem, tell the user about it. Otherwise just 
; Bs8 Nee 2 ! clear away the prompt. 
; 830 1146 : phn$inform((if not .status ‘Report Lib$spawn error | 
3; 831 1147 3 and ¥r 8 .status_2[sts$v_inhib_msgJ 
: 832 1148 3 then .status_ 
; 833 1149 3 else if not Vstatus_1 ‘or error_from mail Toc? | 
; 834 1150 3 and not .status_1(sts$v_inhib_msg] ! unless inhibited 
3 68S 1151 3 then .status_ 
3; 836 1152 § else 0)); 
3; 837 1153 
; 838 1154 § return; 
; 839 1155 
3; 840 1156 1 end; 
-PSECT S$PLIT$S,NOWRT,NOEXE ,2 
50 22 30 54 43 45 4A 4 55 53 2F 4C 49 41 4D 00138 P.AAV: .ASCII \MAIL/SUBJECT=""PHONE Message: \ 3 
20 20 34 65 67 61 73 73 65 4D 90 45 4E 4F 48 00147 i? : 
20 3A 4C 4E 20 22 00156 P.AAW: .ASCII \"' NL: \ 3 
3A 4C 4E Bat ee P.AAY: .ASCII : 3 
015F -BLKB 1 
00000003 00160 P.AAX: .LONG 3 3 
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MISCCMDS MISCCMDS = Miscellaneous Phone Commands 16-Sep-1984 AX-11 Bliss-32 V4.0-742 
y02-000 PHNSMAIL_CMD = Handle MAIL Command 14- Sep- 1984 96: 3: 35 PHONE. SRCIMISCCM DS.832;1 
00000000' 00164 .ADDRESS P.AAY 
.EXTRN SYSSSETPRV 
.PSECT $CODE$,NOWRT,2 
OFFC 00000 ENTRY PHNSMATL CMD, Save R2,R3,R4,R5,R6,R7,RB,R9,=; 
58 000000006 00 9€ 00002 MOVAB SYS$SETPRV, R11 
SE FF60 CE 3 00009 MOVAB =160(SP), $P 
56 AC p 0000 MOVL PARAMETERS, R6 
06 86 66 98 A 0001 LOCC #34, (R6), a4(R6) 
12 0001 BNEQ 1$ 
51 04 00019 CLRL = R11 
53 51 bg 0001B 1$: MOVL R1, CHAR_PTR 
CF 13 OOO1E BEQL 2$ 
50 04 Ab 53 ¢3 00020 SUBL3 CHAR_PTR, 4(R6), RO 
FO AD 66 50 Al 00025 ADDW3 = RO, R6), MESSAGE_DSC 
ry 50 AE OO02A MNEGW RO, (R6) 
09 12 0002D BNEQ 3$ 
000000006 8F pp 000¢F 2$: PUSHL §#PHN$_BADMAILCMD 
00DD 31 00035 BRW 11 
F4 AD 01 A3 9E 00038 3S: MOVAB 1(R3), MESSAGE_DSC+4 
52 FO AD 3C 0003D MOVZWL MESSAGE_DSC, R2 
52 D7 00041 . a 
F4 BD 52 22 3A 00043 LOCC #3 4, R2, AMESSAGE_DSC+4 
02 12 00048 BNEQ 
51 D4 O004A CLRL at 
53 51 DO 0004C 4$: MOVL R11, CHAR_PTR 
05 12 0004F BNEQ 5$ 
51 52 DO 00051 MOVL 2, RI 
05 11 00054 BRB 
51 53 F4 AD C3 00056 S$: SUBL3 MESSAGE_DSC+4, CHAR_PTR, R1 
FO AD 51 BO 0005B 6$: OVW 1, MESSAG 
000000006 BF DD 0005F PUSHL #PHNS SENDINGMAIL 
00006 CF 01 FB 00065 CALLS PANS! 
08 AE 80 8F 9A 0006A MOVZBL W128. COMMAND _BUF 
OC AE 10 AE 9E 0006F MOVAB  COMMAN 5 BUF +87 BL OMMAND _BUF +4 
SA FO AD 3C 00074 MOVZWL MESSAGE -D DSC, R10 
59 66 3C 00078 MOVZ2WL (RO), R 
58 08 AE 3C 00078 MOVZWL COMMAND _BUF, R8 
57 OC AE 00 0007F MOVL COMMAND BUF +4, R7 
58 20 0000' CF 1E 2C 00083 MOVCS #30, P.AAV, #32, R8, (R7) 
67 9008A 
2c 18 00088 BGEQ «= 7$ 
57 1E CO 0008D ADDL2 #30, R7 
58 1E C2 00090 SUBL2 #30, RB 
58 20 F4 BD 3A 2c 00095 MOVCS R10, @MESSAGE_DSC+4, #32, R8, (R7) 
1D 18 OO09A BGEQ 36s 7$ 
57 SA CO 9009¢ ADDL2 R10, R7 
on SA C2 0009F SUB R10, 
58 20 0000' CF 06 2c SOA MOV #6, P.AAW, #32, RB, (R7) 
Op 18 OOOAA BGEQ 36s 7$ 
57 6 CO OO0AC ADDL2 #6, R7 
58 06 C2 OOOAF SUBL2 #6. RB 
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MISCCMDS MISCCMDS = Miscellaneous Phone Commands 16-Sep-1984 02:13:3 AX-11 Bliss-32 V4.0-742 Page 34 
yOrs000 PHNSMAIL_CMD = Handle MAIL Command 14-Sep Probe 4 13:36 PHONE .SRCJMI sechp -B32;1 ’ (13). 
58 20 04 «B6 23 2c pp 0B MOVCS R9, O4(R6), #32, RB, (R7) : | 
F8 AD 00150804 +t DO 000B9 7$ MOVL #1378308, PRIV_VEC 3 1134 
FC AD D4 000C1 CLRL PRIV_VEC+4 : 1136 
7E 7C Q00C4 CLRQ -(SPY ¢ 1137) 
F8 AD 9F 000C6 PUSHAB PRIV VEC : 
7E 04 000C9 CLRL SPJ ‘ | 
68 04 FB 000CB CALLS x6, SYSSSETPRV : 
04 AE 9F QOOCE PUSHAB ST ATU $_1 ; 1138) 
7E 7C 00001 LRQ SSP) r 
OC AE 02 DO 00003 OVL #2, 12(SP) : 
0c AE 9F 000D7 PUSHAB 12(SP) : 
7E D4 QOODA -(SP) 3 
0000° CF 9F OO00DC PUSHAB P.AAX : 
20 AE 9F QOOEO PUSHAB COMMAND : 
000000006 00 07 FB OO0ES CALLS #7, LIBSSPAWN : 
52 50 DO OOOEA MOVL RO, STATUS_ : 
7E 7C QOOED RQ -(SP) ; 1140 
F8 AD 9F QOOEF PUSHAB PRIV_VEC i 
01 OD OO0F2 PUSHL #1 : 
68 04 FB OOOF4 CALLS #4, SYSS$SETPRV d 
08 52 €8 OOOF7 BLBS STATUS_2, 8$ s a4 
04 52 1C EO OOOFA #28, STATUS_2, 8$ 3 114 
52 DD OOOFE PUSHL STATUS_2 > 114 
13° 11 00100 1$ $ 
0B 04 AE €8 00102 8$: BLBS STATUS_1 3 114 
06 07 AE 04 EO 00106 BBS #4, STATUS, +43, 9$ s 115 
50 04 AE DO 00108 MOVL STATUS_ » RO s 115 
02 11 0010F BRB 10$ 3 
50 D4 00111 9$: CLRL RO 3 1149) 
50 DD 00113 10$: PUSHL RO ; 
0000G CF 01 FB 00115 11$: CALLS #1, PHNSINFORM 3 114 
04 OO11A RET : 115 
; Routine Size: 283 bytes, Routine Base: S$CODE$ + O3CA 
; 841 157 64 . 
; 842 1158 0 end eludom 
-EXTRN LIBSSIGNAL 
; PSECT SUMMARY 
: Name Bytes Attributes 
: SOWNS 232 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
3; SCODES 1253 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; st IBSKEYOS Q NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(1) 
: “LIBSSTATES 46 NOVEC,NOWRT, RD, EXE. SHR, LCL, » CON, PIC,ALIGN(1) 
; SPLITS 360 NOVEC,NOWRT, RD * NOEXE .NOSHR, LCL; - CON,NOPIC,ALIGN(2) 
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mA Scenes MISCCMDS - : 73 AX-11 Bliss-32 V o3"s 742 Page 3 
v04-000 PHNSMAIL_CMD = Handle MAIL Command 14-Sep-1984 12:53:2 PHONE. SR RCM ISCCMD -B32;1 (13) 
Library Statistics 
eeecesce Symbols -<------ Pages Processing 
File Total Loaded Percent Mapped Time 
255$DUA28: hee YSLIBJSTARLET.L32;1 9776 36 0 581 00:00.8 
255$DUA28: CSYSLIBITPAMAC.L 32; 1 42 22 52 14 00:00.1 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:MISCCMDS/OBJ=OBJ$:MISCCMDS MSRC$:MISCCMDS/UPDATE=(ENH$:MISCCMDS) 


; Size: 1253 code + 638 data bytes 
; Run Time: 00:19.5 

; Elapsed Time: 01: 3 0 

; Lines/CPU Min: 3568 

; Lexemes/CPU-Min: 51864 

: Same © Used: 161 pages 

; Compilation Complete 
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